home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT File System 1.xpl < prev    next >
Text File  |  2004-02-07  |  3KB  |  79 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="System\File System\Windows NT/2K/XP Options"
  5. "NAME"="Windows File System Options"
  6. "VERSION"="1.40"
  7. "OSVERSION"="0101011"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable update of "Last Access" attribute"
  10. "TEXT 2"="Create 8+3 filenames (NTFS partitions only)"
  11. "TEXT 3"="Allow extended characters in 8+3 filenames (NTFS partitions only)"
  12. "DESCRIPTION 1"="By default, Windows updates the attribute "Last Access at" each time you access a file. If you don't need this feature, you can disable it here to save time. Disabling this feature is useful if this machine is used as a fileserver and should be as fast as possible."
  13. "DESCRIPTION 2"="If "Create 8+3 filenames" is activated (default), Windows also creates a 8+3 filename for each file. Only 16-bit apps will need those 8+3 names, so if you don't have any legacy programs you can properly deactivate this option."
  14. "DESCRIPTION 3"="If "Allow extended characters in 8+3 filenames" is activated (this setting is DEACTIVATED by default), Windows can use extended characters (=outside the basic 64-character set) for the automatic filename creation. Activating this option might lead to problems with legacy application if they use a different code page than Windows itself."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"="Thanks to John Hansen [sasjwh@wnt.sas.com] for his help and the Win2K feature!"
  20. "COMMENT 2"="Thanks to Pierre Szwarc [mailto:szwarc@usa.net] for setting 3+4!"
  21.  
  22.  
  23.  
  24. sP="HKLM\System\CurrentControlSet\Control\FileSystem\NtfsDisableLastAccessUpdate"
  25. sP3="HKLM\System\CurrentControlSet\Control\FileSystem\NtfsDisable8dot3NameCreation"
  26. sP4="HKLM\System\CurrentControlSet\Control\FileSystem\NtfsAllowExtendedCharacterIn8dot3Name"
  27.  
  28. Sub Plugin_Initialize 
  29.     i=RegReadValue(sP)
  30.     if IsEmpty(i) or i=0 then
  31.        SetUIElement 1,true
  32.     end if
  33.  
  34.     i=RegReadValue(sP3)
  35.     if IsEmpty(i) or i=0 then
  36.        SetUIElement 2,true
  37.     end if
  38.  
  39.     i=RegReadValue(sP4)
  40.     if i=1 then
  41.        SetUIElement 3,true
  42.     end if
  43.  
  44. End Sub
  45.  
  46. Sub Plugin_CheckData(ElementIndex)
  47. End Sub
  48.  
  49. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  50.  b=GetUIElement(1)
  51.  if b=true then
  52.     Call RegWriteValue(sp,0,2)
  53.  else 
  54.     Call RegWriteValue(sp,1,2)
  55.  end if
  56.  
  57.  b=GetUIElement(2)
  58.  if b=true then
  59.     Call RegWriteValue(sP3,0,2) 
  60.  else
  61.     Call RegWriteValue(sP3,1,2) 
  62.  end if
  63.  
  64.  b=GetUIElement(3)
  65.  if b=true then
  66.     Call RegWriteValue(sP4,1,2) 
  67.  else
  68.     Call RegWriteValue(sP4,0,2) 
  69.  end if
  70.  
  71.  
  72.  
  73.  Restart
  74. End Sub
  75.  
  76. Sub Plugin_Terminate 
  77. End Sub
  78.  
  79.